#!usr/bin/perl -w

#定义了Process类
package Process;

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(Parse);
use strict;

sub new()
{
	my $self={};
	bless $self;
	$self->Construct();
	return $self;
}

sub Construct()
{
	my $this=shift;
}

sub Parse()
{
	my $this=shift;
}

1;

